MacFormat 1995 July/macformat-026.iso/mac/Demos/MF26/CIRCUS 1/LOOP.DIR/00003.ls

Text File | 1994-12-10 | 605 b | 31 lines

on stopMovie
  global myColorDepth, mySoundLevel
  if the machineType <> 256 then
    releaseRearWindow()
    set the colorDepth to myColorDepth
    set the soundLevel to mySoundLevel
  end if
end

on keyDown
  if (the key = "q") and the commandDown then
    quit()
  end if
  if (the key < 8) and (the key > 0) then
    set the soundLevel to integer(the key)
  end if
  if (the key = 8) or (the key = 9) then
    set the soundLevel to 7
  end if
  if the key = 0 then
    set the soundLevel to 1
  end if
end

on releaseRearWindow
  global rwObj
  if objectp(rwObj) then
    rwObj(mdispose)
  end if
end